0 S=0 : D=1 : A$=" [161] " : FOR I=0 TO 22 : A$=A$+"[157][157][157] [161] " : NEXT
1 FORI=0TO1:PRINT""SPC(S)A$;:S=S+D:D=D*(1+(S=0OR37=S)*2):I=PEEK(198):NEXT
2 POKE 198, 0
3 :
4 CLR: C=53272: B=231 : S=1: D=1 : A=56 : A$="[161]": FORI=0TO22: A$=A$+"[157][161]": NEXT
5 FORI=0TO1:POKE648,A:PRINT"[147]"SPC(S)A$;:S=S+D:D=D*(1+(S=1OR38=S)*2)
6 WAIT53265,128:POKEC,B:A=116-A:B=478-B:I=PEEK(198):NEXT
7 POKE 198, 0 : POKE 648, 4 : POKE 53272, 23
8 :
9 CLR : A=53280 : B=53266 : POKE 56334, 0
10 POKEA,0:WAITB,64:POKEA,7:POKEA,5 :GOTO10